home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / tjgold.zip / INSTALL.003 / DEMPMT1.PAS < prev    next >
Pascal/Delphi Source File  |  1995-05-29  |  2KB  |  47 lines
  1. {--------------------------------------------------------------------------}
  2. {                Product: TechnoJock's Turbo Toolkit GOLD                  }
  3. {                                                                          }
  4. {                     TTT GOLD - DEMO PROGRAM                        }
  5. {                                                                          }
  6. {                Copyright 1986-1995  TechnoJock Software, Inc.            }
  7. {                           All Rights Reserved                            }
  8. {                          Restricted by License                           }
  9. {--------------------------------------------------------------------------}
  10.  
  11. {Description: DEMPMT1.PAS
  12.               Illustrates how to use the Prompt procedure
  13.               to display a pop-up dialog.
  14. }
  15.  
  16. program DemPmt1;
  17.  
  18. {$I GOLDFLAG.INC}
  19.  
  20. uses DOS,CRT, GoldMisc, GoldAttr, GoldHard,GoldFast,GoldWin,GoldKey;
  21.  
  22. procedure SetScreen;
  23. {}
  24. begin
  25.    Clear(WhiteOnCyan,'▒');
  26.    ClearLine(1,YellowOnBlue);
  27.    WriteCenter(1,0,'Basic Prompt Demo');
  28.    ClearLine(25,BlackOnBrown);
  29.    WriteCenter(25,0,'Press ESC to finish...');
  30. end; { SetScreen }
  31.  
  32. begin
  33. {$IFOPT D+}
  34.    HeapRecord;
  35. {$ENDIF}
  36.    SetScreen;
  37.    if PromptOKCancel(' Confirmation ','Would you like to rebuild the|database index now?|') = 1 then
  38.       PromptOK('','You picked OK!')
  39.    else
  40.       PromptOK('','You picked Cancel!');
  41.    MouseShow(false);
  42.    Clear(LightGrayOnBlack,' ');
  43. {$IFOPT D+}
  44.    HeapCheck;
  45. {$ENDIF}
  46. end. { DemPmt1 }
  47.